pcworld online logo

Visual Basic ve Renk

Visual Basic, WindowsÆun tⁿm renk ÷≡elerine kolayca eri■ebilir. WindowsÆunuzun kaτ renk kulland²≡²n², grafik kart²n²z²n bellek miktar²n² ÷≡renmeyi ve bunun gibi baz² ÷zelliklere geτen aylarda de≡inmi■tik. ▐imdi s²ra Visual Basic ile programlar²m²zda nas²l renk ekleyece≡inize geldi. VB formunuz ⁿzerindeki herhangi bir nesnenin rengini de≡i■tirmek iτin iki yol sunuyor bunlardan birincisi RGB komutu. Formlar²n²z² yarat²rken kulland²≡²n²z renk paletinden bir renk seτti≡inizde o rengin ╓zellikler kutucu≡unda de≡i■ik kodlara d÷nⁿ■tⁿ≡ⁿnⁿ g÷rⁿrsⁿnⁿz. Visual Basic, siz rengi seτti≡iniz anda onu sistemin anlayabilece≡i 16Æl²k say² dⁿzenine τevirir.

Visual BasicÆin renk kutusundan seτti≡iniz renkler 16Æl²k say² dⁿzenine yandaki gibi τevrilir. KK, YY, MM iki haneli ve 16Æl²k dⁿzende say²lard²r.

 Visual BasicÆi kullanarak her bir renkÆten 1Æden 255Æe kadar bir ton alabilir, bunlar² kar²■t²rabilir ve b÷ylece 16.581.375 adet de≡i■ik renk elde edebilirsiniz. ▌■te size RGB komutu kullan²larak form ⁿzerine basit bir palet yaratan ufak bir program. RGB de≡erini de≡i■tirerek τok de≡i■ik g÷rⁿntⁿler elde edebilirsiniz. ╓rnekte ayr²ca bir formun ortas²n²n nas²l bulunaca≡²n² da g÷rebilirsiniz.

Private Sub Form_Click()
   
ScaleMode = 1   ' ╓lτⁿ sistemini piksele τevir
CX = ScaleWidth / 2 ' Formun dikey ortas²n² bul
CY = ScaleHeight / 2    ' Formun yatay ortas²n² bul
DrawWidth = 3   ' ╟izim geni■li≡ini ayarla
r = 100
For I = 50 To 0 Step -1
F = I / 50
F1 = 1 - F: F2 = 1 + F  ' Hesaplamalar...

r = r + 10: b = b + 10
If b > 50 Then g = g + 5

ForeColor = RGB(r, g, b) ' ╓nalan rengini belirle
Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
Next I

End Sub
Program²n²z² yazd²ktan sonra formunuzun ⁿzerine bir kere t²klay²n. Gⁿzel bir renk paletinin olu■tu≡unu g÷receksiniz.

Visual BasicÆin size sundu≡u di≡er bir renk komutu ise QBColor komutudur. Bu komutu kullanarak QBASICÆten kalan s²n²rl² 15 tane temel rengi kullanabilirsiniz. Aktif formun arkaplan rengini maviye boyamak iτin ■unun gibi bir komut kullanmal²s²n²z:

Form1.ForeColor = QBColor(1)